home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue62 / Construc / BIOLIFE.DPR < prev    next >
Encoding:
Text File  |  2000-09-06  |  299 b   |  19 lines
  1. program BIOLIFE;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   DBTables, TableXML;
  5. var
  6.   Table: TTable;
  7. begin
  8.   Table := TTable.Create(nil);
  9.   try
  10.     Table.DatabaseName := 'DBDEMOS';
  11.     Table.TableName := 'BIOLIFE.DB';
  12.     DataSetXML(Table,'D:\BIOLIFE.XML');
  13.   finally
  14.     Table.Free;
  15.   end;
  16. end.
  17.  
  18.  
  19.